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ereey ; DETAILED 
DECLAR ATIONS 
ante seyy EA = ALLOCATE A SWAP AREA IN ;. Fr FILE 


D 
ALC_PGFLVBN Allocate specific blocks Fite paging file 
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“SEP-1984 03:45:00 (CSYS.SRCIJPAGEFILE.MAR;1 (1) 
-TITLE ® Gor ILE = ALLOCATE / DEALLOCATE PAGING FILE 
-IDENT ‘v04-000' 


MARAAARAAAASAAAAALALALAALALAAS LEAR ERR R ESA ASRS A LESSER ERASE RRR A REAR EAE EARL ERS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


‘® 
*® 
:® 
*@ 
‘ 
*® 
-* 
‘* 
: 
°f 
:® TRANSFERRED. 
:* 
*® 
:* 
** 
‘® 
:* 
*® 
® 
*® 
ad 


SOOCOCCOCCOOOCOOSooOo 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Se pokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@eneneneennneeeneneneaeaanene 


FRAT AEE TEAR AAE AAA AAA RARER EARAARERAERAARAAR AAA 


++ 
FACILITY: EXECUTIVE, MEMORY MANAGEMENT SUBROUTINES 
ABSTRACT: 


THIS MODULE CONTAINS THE ROUTINES FOR ALLOCATING AND DEALLOCATING 
PAGES FROM A PAGING FILE. 


ENVIRONMENT: 


THESE ROUTINES RUN IN KERNEL MODE AND MUST BE CALLED WITH 
IPL AT SYNCH OR HIGHER. 


SOOSOOCSCOOOSOOSOOOSOOOSOSOSOSOSOOSOOCOOSOSOSOOSOSOOOSOSOOOSOOOOOSOOOSOOoOOo 
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Add SDYNDEF. 


af 


.SBTTL HISTORY ; DETAILED 

: AUTHOR: PETER H. LIPMAN , CREATION DATE: 29-OCT-76 

; MODIFIED BY: 

; v03-004 wMc00001 Wayne Cardoza 09-Jul-1984 
: Make the pagefile full messages more accurate. 

: v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
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00000000 
0024 


00000000 


00000000 


0000 
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DEALLOCATE PAGING FILE 16-SEP-1984 00:45:05 VAX/VMS Macro v04-00 Page 
green i9 4 8 43:88 EOYS SRCIPAGEF ILE MAR: 1 ° 3 

f ~SBTTL DECLARATIONS 
60 ; INCLUDE FILES: 
62 ° SDYNDEF :DYNAMIC DATA STRUCTURE TYPE DEFINITIONS 
3 SPFLDEF SPAGE FILE CONTROL BLOCK DEFINITIONS 
64 SPTEDEF ‘PAGE TABLE ENTRY DEFINITIONS 
65 SRSNDEF TRESOURCE NAME DEFINITIONS 
6 t EXTERNAL SYMBOLS: 
$3 3 

4 > MACROS: 
7 o 

74; 

f3 : EQUATED SYMBOLS: 
7 . 
78 ; 
60 3; OWN STORAGE: 

1 oO 
Be .PSECT $$$220,LONG : SWAPPER/SCHEDULER DATA 
83 “ALIGN LONG ; 
85 MMGSGL_NULLPFL:: : NULL PFL SERVES AS PLACEHOLDER 
BG . LONG : BITMAP POINTER, 0 IF TABLE NOT IN USE 
87 LONG > ADDRESS OF MPW.WRTCLUSTER SIZE AREA 
88 [WORD PFLSC_LENGTH 
89 “BYTE DYNSC~PFL 
90 BYTE : PAGE FAULT CLUSTER 
91 LONG : WINDOW POINTER, *** FILLED IN BY INIT 
38 LONG : ’ ee FILLED IN BY INIT 
9 LONG : BITMAP SIZE 
94 “LONG : FREE PAGE COUNT IN THIS FILE 
95 “LONG PTESM_PGFLVB : PAGE FILE VBN MASK 
%6 “LONG 0 : ACCOUNT FOR EXTENDED LENGTH 


98 ; POINTER TO VECTOR OF PAGE/SWAP FILE CONT 


MMGSGL_PAGSWPVC: : 
.LONG 0 


+ MAXIMUM PAGE FILE INDEX CURRENTLY IN USE 


MMGSGL_MAXPF IDX: : 
-LONG 0 


MMGSGW_MINPF I 
SGNSGW” SWPF IL 
. WORD 


== A~DODDODO0000 


WN —QOONOULSWN—OO 


at ad a tt 


OX:: 
CTs: ; 
0 


ROL BLOCKS 


Count of swapfile slots 


PAG 
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11 
é 148 3 
F 11$ ; Most of the routines in this module are permanently resident 
0000 118 -PSECT SMMGCOD 
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-SBTTL ALLOCSWPAREA = ALLOCATE A SWAP AREA IN A PAGE FILE 
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++ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE ALLOCATES A CLUSTER OF PAGES FROM THE SPECIFIED PAGE FILE. 
CALLING SEQUENCE: 
BSBW MMGSALLOCSWPAREA 
INPUT PARAMETERS: 
r0 = VBN in paging file representing start of current allocation 
rl = current allocation size 
r2 = new request size 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
r0 = page file vbn (greater than 0) if successful 
r2 =_number of pages allocated 
ri,r3 destroyed 
IMPLICIT OUTPUTS: 
none 
COMPLETION CODES: 
positive condition code indicates success 
negative condition code indicates failure 
zero condition code indicates failure because request too early in boot 
SIDE EFFECTS: 


none 
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163 angtel Locouperees 

164 pushr #*m<r4,r5> 3 eeu work registers 

165 clrl r5 ; indicator for no paging files at all 
196 mov l #1 rd ; start scan at file index 1 

167 108: mov l Rw magsgl pa swove(r4).r$ ; 9e§ gedrese of next page file block 
1 3 bbs #pflSy_inite ptt b thgge(rs ,30$ ;branch if this one inited 

169 208:  aobleq g*mmg$gl_maxpfidx,r%,10$ ; loop through all page files 

1 Y mnegl 1,¢ 3; assume -m mited growth size 

17 mov r5,r ; set flag indicating if we are booting 
1% orb 40§ ; yse common exit 

173 30$: decl r . ngicate valid paging file exists 

17 usher = #*m<r4.r5,r6,77,r8,r9,710,r11> ssave volati registers 

175 sbb mam Sal logpagtilf s ap pecate new area in page file 

178 popr #*n<e4,r5,r6,r7,r8,r9,r10,r11> srestore volatile registers 

17 eql 20 ; try next page file 

178 insv oo 824 «89 .F0 ; save swap file index 

179 40S: popr a*m<r4,r5> 3; restore registers 

180 rs : return to caller 


vat - A ATE / DEA 
vou LLOC 5 DE 
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-SBTTL ALLOCPAGFIL = ALLOCATE A PAGING FILE SPACE 


"FUNCTIONAL DESCRIPTION: | 
THIS ROUTINE ALLOCATES A CLUSTER OF PAGES FROM THE SPECIFIED PAGE FILE. 
: CALLING SEQUENCE: 
BSBW  MMGSALLOCPAGFIL1 
INPUT PARAMETERS: 


= VBN in paging file representing start of current allocation 
ri = current allocation size 
= 
= 


NAME AN OS OD NAME UP 


new request size 
page file index 


: IMPLICIT INPUTS: 
: NONE 

; OUTPUT PARAMETERS: 

; R0 = PAGE FILE VBN (GREATER THAN 0) IF SUCCESSFUL 


Ok tt 
i oan 2d4nd-te te bi eh hs oe ee eee 


SOODNOVN EWN 9 OD NAUE WN O ONO WIN O 


; = NUMBER OF PAGES ALLOCATED 
; IMPLICIT OUTPUTS: 

NONE 

; COMPLETION CODES: 


Z-BIT SET IF F 
Z7-BIT 0 IF SUC 


; SIDE EFFECTS: 
MMGSALLOCPAGFIL2 has register content dependencies on this routine! 


This routine depends on allocation sizes to be multiples of 8 for 
reasonable search times now that this is first fit. This implies 

that the modified page writer cluster size should be equal to 

the swap space allocation increment, to a} tow the Loca} ‘memory 

to work cosennent 7. Also the minimum modified page writer cluster size 
should be at least 16 blocks for correct resource failure continuation, 
this allows some emergency 8 byte blocks to be allocated. 


WAN 


AILURE 
CESS 


Oooooooooo 
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coco 


#9 E = ALL at ad DEALLOCATE PAGING FI ie" 19° Hi =1384 00:52:88 ae Macro 


04-00 Pp 7 Pai 
ALLOCPAGFIL = ALLOCATE A PAGING FILE SPA SYS SRCIPAGEF ILE. stat 


MAR; 1 (6) Tat 


8 MMGSALLOCPAGFIL1:: | 
56 63 Dd mov pttst pit £6 zaddress of start of map 
144A i) 8 mov l Pe eererl bi gnapsiz r3),r7 number of bytes in map 
by.) 7 Bee 4 5 add\3 or f ri get end of map address 
8 1 CE 0046 § mneg\ smaterialize a minus_for use 
F oe 004 208: pushr ae en oe er r3> save the nouts (r3 is now address) 
5 52 FD 8F 004 3 ashl smake size into byte coun ount 
59 8 8 EF extzv fit sget the page file index 
53 0024'DF4 D1 40 cmpl “fats 1 Aa r3-;is this in the same page file? 
47 12 4) bneq obs branch if noi, vin? for simple allocate 
50 50 18 QO 4 A tg extzv #0,#24,r0,r0 et the input V 
4 ; F 4 bedi 6 ranch if hot holding current space 
51 ; ¢ 0061 44 addl3 ri re. iget ending block 
59 59 FD 8F 8 0065 45 ashl s-$, r$,r9 iget byte ottset of area after this one 
6A $ zrO+*rl always yield re of 8)+1 
54 51 FD ef 8 D06A 4 ashl #-3,r1,74 current size in groups of 
58 4 C35 Q06F $8 subl3 _r4,r8,r5 snumber of additional needed blocks 
09 «(14 4 bgtr 30$ zsbranch if this is an expansion 
01¢B 30 007 29 bsbw gngsdeal tocpagt it ifree current holding if contraction 
oF 9A 007 1 popr #*n<r0,rior irestore re egs 
0 C OO7A 26 clrq r sindicate holding freed 
U r snow do the allocation 
c8 soit 4s ‘7? brb 20$ do the all i 
D07E 55 : The end of map condition is handled by having a pennetlocecepte byte at 
p 3; the end of the map. s allows the skpc to failure terminat 
Bre ; h d of th This all he sk fail i 
, o 
6649 55 58 7 38 S0s: skpc r11,°5,(r6)Cr9) ifind additional contiguous free space 
a ots 0 5 bneq 60$ tbranch if non-free blocks in area 
move #0,(r r5,(r6)Cr tmark these blocks allocate 
6649 55 00 61 OO 2 ; ¢ 5 0,¢r1),#0,°5,(r6)Cr9] h blocks all d 
08C 6¢ 3; It_is safe not to update STARTBYTE down this path since this is an allocate. 
; : o7 ; This is also probably desirable to lessen start of map searches. 
OF BA ase 65 popr #*m<r0,r1,r2,r3> restore regs 
O8E 06 ee input VBN is output VBN 
51 52 C2 OO8E 6 subl r2.r1 et addi ttonelly 9s} allocated blocks 
34 68 count is negative 
18 AS) «0551s 91 9 addl ri, pfl$l_frepagcnt(r3) Supdete count of 21 DF pages 
04 4 4) 0 bicpsw #4 sindicate success 
5 9 71 rsb return VBN in RO, count in R2, 2-bit=0 


7 : allocation failure return 


oS 


9 
ae 
F BA 9 75 40s: pope #*n<r0,ri, te r3 srestore re 
23 A3 4 9A 7 dot $m supf (ful.pttsp. tlags(r3) rset flag indicating file full 
04 7 bispsw zindicate failure, no deallocation! 
“ f rsb zs2z-bit set 
al 9 + new allocation 
55 58 Al : 80$: movawl rit, r5 t up for 65536 byte locate 
22 A A capb pf ish. allocsiz(r3) iis th - gtendere request size? 
blss 5 sbranch if not, search from start 


mov £11 8t_stertbytetes) rt iset to start from first known free 
§ 0$ zbranch if we know where 
70$: mov r6,r1 zset up to scan map from start 


om Soom 
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Hives ALLO Keri = ALLOCATE A PAGING FILE SPA ast} 99:23:88 SYS.SRCIJPAGEF ILE .MAR;1 ag d) 
57 SA 51 f ; 9 80S: puats an sgote Gunter of brtes remaining to scan 
sbranc of ma 
55 9 cant f r5 less than 35588 bytes fo scan? 
C bgeq of tbranch if not 
22 movl r7,r5 saqt scan enount to what's left 
61 B 3A 90S: loce = 14, 5, (1) tfind a yte aligned area with 8 blocks 
EC 3 eql 80$ branch no free clusters in area 
7 


: The end of map condition is handled by having a non-allocatable byte at 
3; the end of the map. This allows the skpc to failure terminate. 


smultiply byte number*8 to ge VBN 
incl r0 ;VBN's need to be based at 
rsb zsreturn, z-bit=0 


Oc: 
BUG_CHECK BADPAGFILA,FATAL ;BAD PAGE FILE ADDRESS ALLOCATED 
-SBTTL ALLOCPAGFIL = ALLOCATE A PAGING FILE SPACE 


WANA AAW AAAAN AAI AAA AAAI AIGA SPIPIPIPINIPININININD 


MPN 2 3 SS SS SB BQO OO OOO OO 00000 


WN SO ODONAUE WN 0 OD NAME WN (OOO NAULS WN" 
cs 
@ 
2 
= 


o 
SOOOCOOCOCCOSOOCOOOOOCOOOOOOOOSOOOOOOOOOOOOSoO «(VO 


¢ 
¢ 
: 
i 
6: 58 58 C7 skpc r11,r8,(r1) sis this sequence tong enough? 
6 CB bneq 80$ zbranch if not, look for another 
51 § CD subl r8,r1 sget back start address of field 
61 58 99 9 0 0D0 move #0,(r1),#0,r8,(r1) sallocate area, preserve ri address 
7 1 C BOR subl r ‘rive? save start byte to return it 
59 D DA mov l r3,r zsave address of end of this area 
0 BA OO0DD poor #*m<r0,r1> restore regs for deallocations, if any 
53 550 08 1 EF OODF extzv  #24,#8,r0,r3 get the page file index 
50 50 18 OO EF O00E4 extzv #0,#24.r0.r0 tget the input VBN 
44 13 OOE9 95$ branch if no previous holdin 
53 0024'DF4 B 0OEB movl av*nng$ql pagswpvelr3J.r3 sget page file control block address 
O14F OF1 bsbw mmg$deal locpagfil :free up the space 
9¢ BA OO0F4 95$: popr #*m<r2,r3> zrestore the request size, PFL addr 
22 A3 2 91 OOF6 cmpb r t($b_allocsiz(r3) jwas this for current request size 
8 1 OFA bneq 1 sbranch if not, don't affect memory 
04 A 9 OD OFC mov l r9,pfl$l_startbyte(r3) ;update memory for future reference 
18 A 38 c 100 100$: subl 4-05 (5) .Frepagent irs) supdate count of available pages 
50. «65 0 1% ashl #3,r7,r0 
50 D6 0108 
05 O10A 
108 
108 
108 
10 


nn 


i 
EE 
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ws FILE, spa 'S7SEb=1983 89:23:83 HANEMES Hacce, yOe-O8,., Page 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE ALLOCATES THE FIRST CONTIGOUS SET OF BLOCKS FROM 
THE SPECIFIED PAGE FILE. 


CALLING SEQUENCE: 


BSBW MMGSALLOCPAGF IL2 ; must occur just after a call 
3 to MMGSALLOCPAGFIL 


PAGEF ILE = ALL / DEALLOCATE PAG 
voes006 ALLOC iu’ PA 


1 
ALLOCATE A PAG 


>o 
ao, 


INPUT PARAMETERS: 

r3 = page file shentret block address 

r6 = address of start of Bg 

r10= end address of bitm 

rii= 65536 (maximum 4 bony for a string instruction length) 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 


RO = PAGE FILE VBN (GREATER THAN 0) IF SUCCESSFUL 
R2 = NUMBER OF PAGES ALLOCATED 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


Z-BIT SET IF FAI 
Z7-BIT 0 IF SUCCE 


SIDE EFFECTS: 


none 


LURE 
SS 
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SYS. 


80 


245 
746 


8 88 


$-10$ 

$ 
<13><10>- 
<13><1 


ee en Page file badly fragmented, system continuing\- 


- long 
- long 
-ascii 


DEA 
$6 fragmsg: 
§ 10S: 
0 
4 
8 20$: 


6 
; 


: 
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74 critmsg: 


75 


av 
on 
oo 
oo 


asc 


<13><10> 
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MIAO & 
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wmwoowow 


MNVNeoTomM 
MWNOr- 00 
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WTOM Tw 
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v04- ALLOCPAGFIL = ALLOCATE A PAGING FILE SPA ey 7 $8: 28500 YOYS SRCIPAGEF ILE MARS 1 . (9) 
1AF MMGSALLOCPAGF IL2:: 
33 2 3 1AF : soveut rii.rs sset up for 65536 byte locate 
1 6 «OD i ¢ mov r6,ri ;set up to scan map from start 
T+ UM UH 1B 10$: subl3.r1,r10,r7 scale number of bytes remaining to scan 
66 R 189 5 beql $ tbranch if at gnd of map . 
55 Dd 188 8 cmpl r7,r5 less than 65556 bytes to scan? 
93 18 018 bgeq 208 tbranch if not 
5 1¢ 0 mov l r7,e5 set scan amount to what's left 
61 5 00 1C¢ 91 208: skpc #0,°5,(r1) find eny free blocks 
a.) S 1C¢ 8 beql 10 zbranch if no free clusters in area 
50 1 98 9 EA 01C9 9 ffs #0,#8,(r1),r0 ifind the free block 
2 C3 +S 94 subl3 #1,r0,r2 save start offset 
D6 01D 95 308: incl r gaccount for block 
FA 61 ES 01D4 38 bbsc r2,(r1),30$ 3 loop paroush contiguous portion of map 
25 C 108 9 subl r0,r sset r2 number of blocks allocated 
18 A a 108 98 subl r2,pfl$l_frepagcnt(r3) ;update count of available pages 
51 56 ¢ p1B 99 subl r6,r iget oxts number of free blocks 
50 01 A041 3 lee 400 movaq 1(r0)Crij,r0 storm 8*byte number + bit number + 1 
51 4 A3 gf 78 OE 401 ashl #1, pflSl_bitmapsiz(r3) ri ifind 1/4 point of VBN's in bitmap 
51 0 v1 OI1EC $88 cmpl r0,r1 zis this allocation past 1/4 point? 
30 =F giee 40 blssu 50 sbranch if not, no message needed yet 
OB 0000'CF Bo" E2 O1F1 404 bbss s“#exe$v_pgflfrag,w*exe$gl_flags,40$ sbranch if reported 
0 58 O1F7 405 pushr #*m<r0,rT,r2> save registers 
51 FF12 CF D bite 406 movg fra msg.ri 3set up message to output 
3 (0 QFE 407 bsbb sendmsg soutput the message 
BA 0 6° 408 popr #*n<r0,r1,r2> restore registers 
54 «51 . £ oe 409 40$: addl\3—so ri,ri,r4 :find 3/4 mark in file 
54 51 CO 0206 410 addl ri,r4 snow have 3/4 VB 
54 79 D1 0209 411 cmpl r0,r4 zis this allocation past 3/4 point 
1 1F O020C tig blssu. 5 sbranch if not 
OD OOOO'CF 00° E2 QO20E 41 bbss s“#exe$v_pgflcrit,w*exe$gl_flags,50$ ;branch if reported 
07 g8 14 414 pusher #*m<r0,rT,r2> ;save registers 
51 FFG2 CF 7D 0216 415 movqcritmsg,ri iset up message to output 
05 10 18 $18 bsbb sendmsg soutput the message 
07 BA 1D 41 opr #*m<r0,r1,r2> restore registers 
04 34 1F 213 icpsw #4 sindicate success 
3 rs sreturn, z-bit=0 success, else failure 
5 1 rh 50$ b bit=0 lse fail 
8 421 sendmsg: 
55 OOO0'CF 9E 4 ; movab w*opa$ucb0,r5 sset console terminal for broadcast 
FOD6" 31 O02 4 orw ioc$broadcast sassume message will get to console 
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~SBTTL DALCPAGFIL = DEALLOCATE PAGE IN PAGING FILE 


>> 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE DEALLOCATES A SPECIFIED PAGE IN THE SPECIFIED 
PAGING FILE. 


CALLING SEQUENCE: 
BSBW MMGSDALCPAGF IL 
INPUT PARAMETERS: 


5 = PAGE FILE VBN TO DEALLOCATE 
R PAGE FILE INDEX 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 

RO,R1,R2 DESTROYED 

R3 = ADDRESS oF PAGE FILE CONTROL BLOCK 

IMPLICIT OUTPUTS: 


IF THE SPECIFIED PAGING 
AVAILABLE SIGNAL IS ISS 


COMPLETION CODES: 
NONE 


FILE BECOMES NON-EMPTY, THE RESOURCE 
UED FOR THE RSNS$_PGFILE RESOURCE 


SIDE EFFECTS: 
NONE 
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paste DAL‘PAGFIL = DEALLOCATE PAGE IN PAGING F ety Pi erat SYS.SRCJPAGEFILE.MAR;1 . (11) 
«ENABLE Lsb 
5$: scheck for checkpoint bit 
08 50 1 E1 bbe #pte$Sv_chkpnt,r0,10$ scheckpoint bit set? 
03 1C A383 15 ~~ =£0 bbs #ptesy chkpnt .pt($l_maxvbn(r ),10$ branch if not a small file 
0 BA poor #*m<r0,r1> zsclean up 
05 rs zsignore the deallocation request 
10$: BUG_CHECK BADPAGFILD,FATAL ;BAD PAGE FILE ADDRESS DEALLOCATED 
; rO = VBN of block to return 
: r3 = page file index 
MMGSDALCPAGFIL:: 
53 0024'DF43 00 movl aw*mmg$gl_pagswovc(r3],r3 ;get page file control block address 
51 01 00 movl #i,ri sset count to 1 


fall through 
VBN ' start block to return 
oun 


*O 0909 0909 090909090909 SININSI NIN NINN NOOOOOOASA OC 
OOD NAU EWN MH OOONOAU EWN OO OONAUES UP mm 


PEON ANAS EE EEE I EAN ANAANAAN AAAI“ 
FNIODWNGS POLS ONUNWWWWWNWOP P PPP POAUWMPE PE ES 
| ne ne at Oe de Ot Oe 24 2b Oe ae ea a a ee en 


POPQIPOPIPIPIPY PIPPI PIPINIPINIPIPIPUPIPONIPYNIPIPIPINOPIPIPIPYNPIPOPIPONIPOPUNIPONPY 


0 
0 
0 
0 
0 
0 cou 
3 ; r3 = address of page file control block 
8 MMGSDEALLOCPAGF IL:: 
50 07 decl r0 :get VBN to base 0 
a i va * blss 10$ zbranch if VBN passed was 0 
03 BB O pushr #*m<r0,r1> save for Later 
ae ee addl\3—s r 0, r1,r2 high mark for deallocation 
a ae decl r saccount for count in 0 origin 
52 52 _*D 8F 78 QO ashl #-3,r2,r2 zsbyte # in map 
14 A3 52 Ci QO cmol r2.pfl$l_bitmapsiz(r3) z legal page file VBN? 
oo tt @ bgequ 5 branch if illegal 
52 ¢3 DO 0 49 mov l #32,r2 ymax number single insv can set 
51 ¢ D1 493 30$: cmpl r2,r ifree more than 32? 
Q 15 494 bleq 40 ibranch if yes 
28 1 00 495 mov ri,r2 ;set max number to free 
00 0083 52 50 EC 0 496 40$: cmpv 0,r2,apfl$l_bitmap(r3),#0 ;temp check for safety | 
co «612 «0 497 bneq seyesnesh if any of these bit set 
00 B83 52 50 FFFFFFFF 8F FO 9 498 insv #-1,r0,r2,apfl$l_bitmap(r3) ;set the bits 
50 52 CO 027 499 addl r2,r supdate to next VBN sequence 
18 A3 2§ CO 027 500 addl 75-97 (0A. Prepagent te] scount free pages 
;: oe C2 O27E 501 subl r2,ri number of blocks to still free 
DA 12 0281 208 bneq 30 ; Loop shrougn entire set 
3 BA 0283 50 popr #*m<r0,r1> sget back VEN and free count 
50 50 FD 8F 8 0285 504 ashl #-3,°r0,r0 set up to check for 8 block unit freed 
51 ge 5 gh 282 addl #14,0r1 zsround count for worst case crossing 
7. FD 8F D $ ashl #-3,r1,r1 snumber of bytes to check 
00 8340 51 FF ar 7 0 35 22 Need #o1.r1 apf lst_bitmap(r3)fr0) zeny wnole cluster become free? 
e zbranc no 
04 A3 1 o1 98 $9 saat ri pfl$l_startbyte(r3) ;is freed cluster earlier in cope 
8 1A oF 10 bgtru 6 branch if not, note bgtru not bgequ 
50 1 % Al 11 50$: mcomb 3 -(r1),r0 ifind start byte of free area 
— . AG \¢ +h 50$ ; loop 
a. St OF ey A6 1 addl3 #1, r1.r2 set start of area 
51 22 A3. 9A OQ2AA 14 movzbl pf {Sb allocsiz(r3),r1  ;get current cluster size for this file 
51 i FD 8F 78 A 15 as -3.rT.rl :get it ‘® bytes rather than blocks 
62 1 FF 8F 8 16 skpc #-1,71, (2) sdoes this area qualify? 
| B 1 bneq 60$ sbranch if not | : 
04 A353 52 OD BA 18 movl r2,pfl$l_startbyte(r3) ;save new starting pointer 


——__——— 
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v04- DALCPAGFIL = DEALLOCATE PAGE IN PAGING S -SEP-1984 05:46:00 (CSYS.SRCIJPAGEFILE.MAR;1 (11) 
OOOO'CF 22 a3 91 a 1 cmpb pfl$b_allocsiz(r3) ,w*mpwSgw_ mow fc jare we at maximum size 
C i. s eens oy over try allocations for? 
Sic C4 beql ib <8 ax imum 
8 7 8 C6 addb : 4,00 ah toc ocsiz(r3) ri h gher size next time 
OA O38 A E cA ; 558: bbce 53H tful. pfl$b_ ing } (608 |: gibranch 17 net transition 
usher is dress 
50 A 7 D1 5 Sovi ances ~ougittheet coat ptt oot swap file available 
FD29" D4 § bsbw sch$ravail zsignal resource available 
8 A D7 poor #*m<r3> srestore pfl address 
5 + 60$: rs sreturn 
O2DA 0 DISABLE lsb 
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Allocate specific blocks in paging file 


Page 15 
~SBTTL ALC _PGFLVBN 


+ 
FUNCTIONAL DESCRIPTION: 
This routine allocates a specific set of blocks in a paging file 
CALLING SEQUENCE: 
BSBW MMGSALC_PGFLVBN 
INPUT PARAMETERS: 
RO = VBN of first block to be allocated 
R1 = Page file index 
R2 = Number of consecutive blocks to be allocated 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


(12) 


PAR 


%) 
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VoL 000 ALC_PGFLVBN Allocate merit ie blocks in $7 Pa} 84 88:88:80 SYS.SRCIJPAGEF ILE .MAR;1 = a 
0000 ef -PSECT YSLOWUSE This code can page 
: MMGSALC_PGFLVBN: : 
51 00000024 'FF41 dO § MOVL @L“MMGSGL_PAGSWPVCCR1],R1 ;Get base address from index 
3 Dp y PUSHL R Get a g scratch regtster 
B A 7 DECL Bit se 0 
53 50 FD 8F 8 f ys 10$ ASHL e° RO,R3 Byte # in bit map 
14 Al ; D1 3 CHPL PFL$L_BITMAPSIZ(R1) Legal. page fi rue von? 
04 00 81 0 €4 1? o? 208 BSC RO, @PFLSL_BITMAP(R1), 30s" pm the ae on 4 branch 
1 7 sea BUG_CHECK BADPAGFILD,FATAL ;Bad page file address specified 
18 Al 07 § "-DECL «= PEL SL_FREPAGCNT(R1) :Count another free page 
D 0 INCL :Paint to next VBN in file 
E4 F 1 SOBGTR R2,10$ iGo back if not done yet 
D ¢ DECL Form a minus 1 
52 18 Al 01 A CMPL PFLSL_FREPAGCNT(R1),R2 :Insure that counts still consistent 
4 19 00 4 BLSS 20% ;Bugcheck if n 
BEDO 00 5 POPL R3 Restore As Be. 
05 +3 ? 36 RSB 3 and return 
Sb3e at .END 
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Symbol table “SEP-1984 SYS.SRCJPAGEFILE.MAR; 1 (13) 


4 
| 
BADALLOC 00000108 R 
BUGS_BADPAGF ILA eereeeee 8 §= 6X 
BUGS BADPAGF ILD grereeee x 
CRITASG abe 
DYNSC_PFL = 000000 
EXESGE FL fereneee ¥ 
EXESV_PGFLCRIT eeeneeee 8 6X 
+ xesv. PGFLFRAG eeeenrere §€6X 
GMSG OOOOO10F R 
TCC SORGADCAST eereeere 8§ 6X 
MMGSALC_PGFLVBN 000 99 RG 4 
MMGSALLOCPAGF IL 4 RG 
MMGSALLOCPAGF IL AF RG 
MMGSALLOCSWPAREA 0 0 RG 
ALCP L A RG 
MMGSDFALLOCPAGF IL 0 43 RG 
Dx 000 RG 
MMGSGL_NULLPFL 00 RG 
MMGSGL— _PAGSWPVC 00 4 RG 
MMGSGW al lye ia 0000002C RG 0 
MPWSGW MPWPFC wee ee eee x 0 
OPA ttt aeeenrne y 0 
PFLS$B_ALLOCSIZ = 000000 ¢ 
PFL$B-FLAGS = 000000 
PFLSC_LENGTH = 00000024 
PFLS$L~BIT = 0000000 
PFLSL_BITMAPSIZ = 4 444 14 
PFLSL— _FREPAGCNT = 4-44 Sed 
PFLSL_MAXVBN = 000 dN 
PFLSL— _STARTBYTE = 00004 
PFLSM_SWPFILFUL a 4 
PFLSV_INITE = 0 8 
PFLSV_SWPFILFUL S +4 0 
PTESM_PGFL = OOSFFFFF 
PTESV_CHKPNT = 00 
RSNS_SwPFIL oS 
SCHSRAVAIL eeeerere 93 
SENDMSG 90008 age R 0 
SGNSGW_SWPFILCT 00002C RG 02 
Seer ee wm ee eee + 
! Psect synopsis H 
PSECT nome Allocation PSECT No. Attributes 
- «ABS . sit 94 44 ( 8.) 00 ¢( 0.) NOPIC USR- CON LCL =e NOEXE NORD NOWRT NOVEC BYTE 
$$ 0 ( ow 1¢ 1.) NOPIC USR CON LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$220 —E ( 46.) § ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
COD RA ( R ) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
YSLOWUSE 4 ( ot 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


PA 
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SYS.SRCJPAGEFILE.MAR;1 


wean anwr nos ne am nae ear coe a } 


! Performance indicators ! 


deere ewe memes a enn snore n see} 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 9 :00:02.44 
Command processing :00: 779 


Pass 1 

Symbol table sort :01. 
ass $8 705. 
Symbol table output 8 :00:00. 

Psect synopsis output 4 :00: 3: 3 
Cross-reference output 8: : 98 : 8 98 

Assembler run totals 46 00:06 00:24. 
The working ort Limit was 1350 pages. 

22714 bytes (45 pages) of virtual memory were used to buffer the intermediate sade. 

There were 20 pages of symbol table space allocated to hold 267 non-local and 32 local symbols. 


source lines were read in Pass 1, producing 19 object records in Pass 2. 
12 pages of virtual memory were used to define 11 macros. 


seete#ee#ee#r#* # @# 
wo 


! Macro Library statistics ! 


Bowe nee eee ee Oe me om oe + 


Macro Library name Macros defined 
-) S3$DUAR8: SYS.OBJJLIB.MLB;1 5 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 3 
TOTALS (all Libraries) 8 


319 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:PAGEF ILE/OBJ=OBJ$:PAGEFILE MSRC$:PAGEF ILE/UPDATE=(ENHS$:PAGEF ILE) +EXECMLS$/LIB 
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